home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Developer Source 5
/
developer source - volume 5.iso
/
delph
/
may96
/
rippf103.gif
< prev
next >
Tile
Graphics Interchange Format
|
1996-11-16
|
8.2 KB
|
470x431
|
4-bit (14 colors)
ocr:
TILE.PAS D X Tile procedure TForml.FormPaint(Sender: TObject); var xPos, YPos, bmpWidth, bmpHeight : LongInt; begin with mybitmap do begin bmpWidth := Width; bmpHeight := Height; end; YPos := 0; while YPos < Height do begin XPos : 0; while XPos < Width do begin Canvas.Draw (xPos, YPos, myBitmap); XPos := XPos + bmpWidth; end; YPos := YPos + bmpHeight; end; end; 40: 1 Modified Insert